COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		TITLE SLAP
C00006 ENDMK
C⊗;
	TITLE SLAP
	ENTRY FOLD
FOLD:	0
	HRRZ 1,1(16)
	SOJ 1,
	MOVE 2,1
	ADD 1,@0(16)
	HRRZ 3,3(16)
	SOJ 3,
	MOVEM 3,MOUP#
	ADD 3,@2(16)
	HRRZ 6,5(16)
	SOJ 6,
	MOVE 5,@4(16)
	AOJ 5,
	HRLZM 5,@6(16)
	SOJ 5,
	ADD 5,6
ADIN: 	AOJ 2,
	CAMLE 2,1
	JRST RETUR
	MOVE 4,MOUP
	SETZ 10,
	MOVE 11,@2
SEQU:  	AOJ 4,
	CAMLE 4,3
	JRST NEWR
	CAME 11,@4
	JRST SEQU
SAAD:	AOJ 10,
	MOVE 7,2
	ADD 7,10
	CAMLE 7,1
	JRST SUBT
	CAMN 11,@7
	JRST SAAD
SUBT:	SOJ 10,
	CAIG 10,0
	JRST TOEQ
	AOJ 5,
	SUB 4,MOUP
	LSH 4,22
	HRR 4,10
	IOR 4,[0,,400000]
	MOVEM 4,@5
	JRST TAKS
TOEQ:	AOJ 10,
	MOVE 11,2
	ADD 11,10
	CAMLE 11,1
	JRST LWRD
	MOVE 12,4
	ADD 12,10
	MOVE 7,@11
	CAMLE 12,3
	JRST LWRD
	CAMN 7,@12
	JRST TOEQ
LWRD:	SOJ 10,
ICKY:	AOJ 5,
	SUB 4,MOUP
	HRLZM 4,@5
	ADD 4,10
	HRRM 4,@5
TAKS:	ADD 2,10
	JRST ADIN
NEWR:	AOJ 3,
	MOVEM 11,@3
	JRST ICKY
RETUR:	SUB 3,MOUP
	MOVEM 3,@2(16)
BGIN:	HLRZ 7,@6(16)
	ADD 7,6
NRITE:	HRRZ 10,@7
	AOJ 7,
	CAMLE 7,5
	JRST NFIR
	AOJ 10,
	HLRZ 11,@7
	CAME 10,11
	JRST NRITE
	HRL 11,@7
	JUMPL 11,NRITE
	HRRZ 11,@7
	SOJ 7,
	HRRM 11,@7
AGIN:	AOJ 7,
	MOVE 10,7
	AOJ 10,
	CAMLE 10,5
	JRST BOP
	MOVE 11,@10
	MOVEM 11,@7
	CAMGE 10,5
	JRST AGIN
BOP:	SOJ 5,
	JRST BGIN
RERUN:	MOVE 1,FLG#
	JUMPE 1,BACK
NFIR:	SETZM FLG
	HLRZ 7,@6(16)
	ADD 7,6
	MOVE 11,7
	SETZM TFL#
	JRST NOTH
NEQU:	AOJ 11,
	SETOM TFL
NOTH:	CAMLE 11,5
	JRST RERUN
	MOVEI 4,JOMP
	HLRZ 2,@11
	TRZN 2,400000
	MOVEI 4,IBAD
	MOVEI 3,IBAD
	MOVE 10,6
IBAD:	AOJ 10,
	CAML 10,7
	JRST NEQU
	MOVE 1,@10
	CAME 1,@11
	JRST @4
	MOVE 2,10
	SUB 2,6
	HRLZ 1,2
	HRR 1,2
	IOR 1,[400000,,0]
	MOVEM 1,@11
	SETOM FLG
	MOVEI 3,NEQU
JOMP:	MOVE 1,TFL
	JUMPE 1,@3
	MOVE 12,11
	SOJ 12,
	MOVE 1,@12
	TLNN 1,400000
	JRST @3
	HRRZ 1,1
	AOJ 1,
	CAME 1,2
	JRST @3
	HRRM 2,@12
	SETOM FLG
	MOVE 1,12
	AOJ 1,
ONEM:	AOJ 1,
	AOJ 12,
	MOVE 10,@1
	MOVEM 10,@12
	CAMG 1,5
	JRST ONEM
	SOJ 5,
	JRST NEQU
BACK:	SUB 5,6
	MOVEM 5,@4(16)
	HRRM 5,@6(16)
	JRA 16,7(16)
	END